home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / tests / shell < prev    next >
Text File  |  1995-06-29  |  310b  |  24 lines
  1.  
  2. if {[string compare test [info procs test]] == 1} then \
  3.   {source defs}
  4.  
  5. # set VERBOSE 1
  6. # set INTERACTIVE 1
  7.  
  8.  
  9. #############
  10. # starts here
  11. #############
  12.  
  13. xtAppInitialize -class List
  14. . setValues -allowShellResize true
  15.  
  16.  
  17. #############
  18. # Finish up #
  19. #############
  20. if { ! $INTERACTIVE} {
  21. } else {
  22.   . mainLoop
  23. }
  24.